home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_ghostscript.idb / usr / freeware / lib / ghostscript / 3.33 / gslp.ps.z / gslp.ps
Encoding:
Text File  |  1998-05-21  |  14.1 KB  |  506 lines
  1. %    Copyright (C) 1991, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility to
  7. % anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU Ghostscript General Public License for full details.
  10. % 
  11.  
  12. % gslp.ps - format and print text
  13.  
  14. % This utility provides functionality approximately equivalent to the Unix
  15. % `enscript' program.  It prints plain text files using a single font.
  16. % It currently handles tabs and formfeeds, but not backspaces.
  17. % It only works with fixed-pitch fonts.
  18. % Standard flags implemented:
  19. %    -12BclqRr -b -f -F -L -p
  20. % Sun flags implemented:
  21. %    -T<n>    set tab width
  22. % Flags ignored:
  23. %    -GghKkmow -# -C -d -J -n -P -S -s -t -v
  24. % Flags added:
  25. %    --detect
  26. %        treats the file as PostScript if it starts with %!
  27. %    --(heading|footing)-(left|center|right) <string>
  28. %        sets the heading/footing fields; use -B first to clear
  29. %    --first-page <n>
  30. %        sets the first page to print
  31. %    --last-page <n>
  32. %        sets the last page to print
  33. %    --spacing <n>
  34. %        for double (n=2), triple (n=3), etc. spacing
  35. % Also, the string %# in a heading or footing is replaced with the page #.
  36. /PageNumberString (%#) def
  37.  
  38. /lpdict 150 dict def
  39. lpdict begin
  40.  
  41. % build iso-latin-1 version of a font
  42. /font-to-iso-latin-1 {    % <font> font-to-iso-latin-1 <font>
  43.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  44.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  45.     /Encoding ISOLatin1Encoding def currentdict end
  46.     dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn 
  47.     exch definefont
  48. } def
  49.  
  50. /find-latin-font {    % <name> find-latin-font <font>
  51.   findfont font-to-iso-latin-1
  52. } def
  53.  
  54. % Define the initial values of the printing parameters.
  55.  
  56. /BodyFont null def        % use default
  57.   /defaultBodyFont
  58.     { /Courier find-latin-font Landscape { 7 } { 10 } ifelse scalefont } def
  59. /Columns 1 def
  60. /DetectFileType false def
  61. /Footers false def
  62. /FootingLeft () def
  63. /FootingCenter () def
  64. /FootingRight () def
  65. /Headers true def
  66. /HeadingLeft () def
  67. /HeadingCenter () def
  68. /HeadingRight (page ) PageNumberString concatstrings def
  69. /HeadingFont null def        % use default
  70.   /defaultHeadingFont
  71.     { /Courier-Bold find-latin-font 10 scalefont } def
  72. /Landscape false def
  73. /MarginBottom 36 def        % 1/2"
  74. /MarginLeft 36 def        % 1/2"
  75. /MarginRight 36 def        % 1/2"
  76. /MarginTop 36 def        % 1/2"
  77. /MaxLines 9999 def        % max lines per page
  78. /Noisy true def            % i.e., not quiet
  79. /OutFile null def        % null = write directly to device
  80. /PageFirst 1 def
  81. /PageLast 99999 def
  82. /Spacing 1 def
  83. /Tab 8 def
  84. /Truncate false def        % wrap long lines, don't truncate
  85.  
  86. % When writing to a file, we want to write out PostScript;
  87. % when writing to the printer, we want to execute it;
  88. % some commands should be executed regardless.
  89. % lpexec provides for all this.
  90.  
  91. /lpexec        % <arg1> ... <argn> </op> <n> <do_always> lpexec -
  92.  { OutFile null eq
  93.     { pop 1 add true
  94.     }
  95.     { /t exch def 1 add /n exch def cvx
  96.       n { n -1 roll dup wosp } repeat
  97.       OutFile (\n) writestring
  98.       n t
  99.     }
  100.    ifelse
  101.     { pop load exec }
  102.     { { pop } repeat }
  103.    ifelse
  104.  } def
  105.  
  106. /lpmoveto
  107.  { /moveto 2 true lpexec
  108.  } def
  109. /lpshow
  110.  { dup length 0 ne { /show 1 false lpexec } { pop } ifelse
  111.  } def
  112. /lpsetmyfont
  113.  { dup load setfont
  114.    OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
  115.  } def
  116.  
  117. % Define some utility procedures.
  118.  
  119. /banner        % ypos left center right
  120.  { /HFont lpsetmyfont
  121.    3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
  122.    exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
  123.    bannerstring pwidth exch sub
  124.    3 -1 roll pwidth showline2 pop
  125.  } def
  126.  
  127. /bannerstring    % string -> string width
  128.   { PageNumberString search
  129.      { exch pop pindex 4 string cvs concatstrings exch concatstrings
  130.      }
  131.     if dup stringwidth pop
  132.   } def
  133.  
  134. /beginpage
  135.  { /lindex 0 def
  136.    /skipping pindex PageFirst ge pindex PageLast le and not def
  137.    /save 0 true lpexec /pagesave exch def
  138.    skipping { nulldevice   /OutFile null def } if
  139.    Headers
  140.     { lheight hdescent add
  141.       HeadingLeft HeadingCenter HeadingRight banner
  142.     } if
  143.    /BFont lpsetmyfont
  144.  } def
  145.  
  146. /endpage
  147.  { lindex 0 ne
  148.     { Footers
  149.        { topskip plength sub hdescent add
  150.          FootingLeft FootingCenter FootingRight banner
  151.        } if
  152.       /showpage 0 false lpexec
  153.     } if
  154.    pagesave /restore 0 true lpexec
  155.    /pindex pindex 1 add def
  156.  } def
  157.  
  158. /fontheight    % <font> fontheight <ascent> <height>
  159.  { gsave setfont
  160.    newpath 0 0 moveto
  161.    (|^_j) false charpath
  162.    pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
  163.    grestore exch 1.25 mul exch 1.25 mul
  164.  } def
  165.  
  166. /wosp
  167.  { OutFile ( ) writestring OutFile exch write==only
  168.  } def
  169.  
  170. /outfont        % name font ->
  171.  { OutFile null ne
  172.     { exch wosp
  173.       dup /FontName get 
  174.       dup wosp OutFile ( findfont) writestring
  175.       %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  176.       OutFile ( 
  177.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  178.     /Encoding ISOLatin1Encoding def currentdict end
  179.       ) writestring
  180.       wosp OutFile (-ISOLatin1 exch definefont) writestring
  181.       /FontMatrix get 0 get 1000 mul round cvi wosp
  182.       OutFile ( scalefont def\n) writestring
  183.     }
  184.     { pop pop
  185.     }
  186.    ifelse
  187.  } def
  188.  
  189. /StringFF (\f) def
  190. /CharFF StringFF 0 get def
  191. /StringTAB (\t) def
  192. /CharTAB StringTAB 0 get def
  193.  
  194. /showline        % line -> leftover_line (handles \f)
  195.  {  { showline1 dup length 0 eq { exit } if
  196.       dup 0 get CharFF ne { exit } if
  197.       endpage beginpage
  198.       skip1
  199.     }
  200.    loop
  201.  } def
  202.  
  203. /showline1        % line -> leftover_line (handles page break)
  204.  { lindex llength eq { endpage beginpage } if
  205.    lindex colines idiv cowidth mul        % x
  206.    lindex colines mod 1 add lheight mul neg fascent sub    % y
  207.    1 index cowidth add
  208.    showline2
  209.    /lindex lindex 1 add def
  210.  } def
  211.  
  212. /showline2    % string x y xlimit -> leftover_string (handles tabs)
  213.  { 2 index exch 5 2 roll lpmoveto    % xinit xlimit string
  214.     { showline3 dup length 0 eq { exit } if
  215.       dup 0 get CharTAB ne { exit } if
  216.       currentpoint exch 4 index sub tabwx div
  217.     0.05 add ceiling tabwx mul 4 index add exch lpmoveto
  218.       skip1
  219.       currentpoint pop 2 index ge { exit } if
  220.     }
  221.    loop exch pop exch pop
  222.  } def
  223.  
  224. /showline3    % xlimit string -> xlimit leftover_string
  225.         % (finds line break / tab / formfeed)
  226.  { currentpoint pop 2 index exch sub
  227.      cwx div 0.1 add cvi 0 max 1 index length min
  228.    1 index 0 3 -1 roll getinterval
  229.     % look for \f or \t
  230.    StringFF search { exch pop exch pop } if
  231.    StringTAB search { exch pop exch pop } if
  232.    dup lpshow
  233.    length dup 2 index length exch sub getinterval
  234.  } def
  235.  
  236. /skip1
  237.  { dup length 1 sub 1 exch getinterval
  238.  } def
  239.  
  240. /e= {        % <object> e= - -- print an object to stderr
  241.   (%stderr) (w) file dup 3 -1 roll write=only flushfile
  242. } def
  243.  
  244. /eprint {    % <string> eprint - -- print a string to stderr
  245.   (%stderr) (w) file dup 3 -1 roll writestring flushfile
  246. } def
  247.  
  248. % The main printing procedure
  249.  
  250. /lp        % file initial_chars ->
  251.  { /lpline exch def
  252.    /lpfile exch def
  253.    /save 0 true lpexec
  254.  
  255. % Initialize the device and fonts.
  256.    /BFont
  257.      BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
  258.    /BFont BFont outfont
  259.    Headers Footers or
  260.     { /HFont
  261.     HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
  262.       /HFont HFont outfont
  263.     }
  264.    if
  265.  
  266. % Get the layout parameters.
  267.    clippath
  268.    Landscape { -90 /rotate 1 true lpexec } if
  269.    BFont setfont ( ) stringwidth pop /cwx exch def
  270.      cwx Tab mul /tabwx exch def
  271.    BFont fontheight /fheight exch def /fascent exch def
  272.    Headers Footers or { HFont fontheight } { 0 0 } ifelse
  273.      /hheight exch def /hascent exch def
  274.      /hdescent hheight hascent sub def
  275.    fheight Spacing mul /lheight exch def
  276.    Headers { hheight lheight add } { 0 } ifelse
  277.      /topskip exch def
  278.    Footers { hheight lheight add } { 0 } ifelse
  279.      /botskip exch def
  280.    /pskip topskip botskip add def
  281.     % Translate the page so that (0,0) corresponds to
  282.     % the top of the topmost body line.
  283.    pathbbox
  284.      2 index sub MarginBottom MarginTop add sub /plength exch def
  285.      2 index sub MarginLeft MarginRight add sub /pwidth exch def
  286.      pwidth Columns div /cowidth exch def
  287.      exch MarginLeft add
  288.      exch MarginBottom add plength add topskip sub
  289.      /translate 2 true lpexec
  290.    plength pskip sub lheight div cvi MaxLines min
  291.      dup /colines exch def
  292.      Columns mul /llength exch def
  293.    OutFile null ne { nulldevice } if
  294.  
  295. % Print layout
  296.    Noisy
  297.     { (Page height = ) eprint llength e=
  298.       (.\n) eprint flush
  299.     } if
  300.  
  301. % Disable stack recording so we can use stopped with readline.
  302.    $error /recordstacks false put
  303.  
  304. % Initialize for the first page.
  305.    /lbuf 1000 string def
  306.    /pindex 1 def
  307.    beginpage
  308.  
  309. % Iterate through the file.
  310.    lpline
  311.     { dup length /pos exch def
  312.       lbuf exch 0 exch putinterval
  313.        { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
  314.        {    % Filled the line before a CR or EOF.
  315.          exch pop showline
  316.        }
  317.        {    % Reached CR and/or EOF first.
  318.          exch length pos add lbuf exch 0 exch getinterval
  319.      1 index { showline } if        % omit final empty line
  320.       { dup length 0 eq Truncate or { pop () exit } if
  321.         showline
  322.       }
  323.      loop
  324.      exch not { exit } if
  325.        }
  326.       ifelse
  327.     } loop
  328.    pop
  329.  
  330. % Wrap up.
  331.    endpage
  332.    /restore 0 true lpexec
  333.  
  334.  } def
  335.  
  336. end
  337.  
  338. % Usage: <file> lp
  339. %   prints <file> using the current parameter settings.
  340. % Usage: [ <arg1> ... <argn> ] lpcommand
  341. %   interprets args like a command line.
  342.  
  343. /lp { save   lpdict begin () lp end   restore } def
  344.  
  345. lpdict begin
  346.  
  347. /splitfn        % (FontNNN) -> <font>
  348.  { dup /arg exch def length
  349.     { dup 0 le { exit } if
  350.       dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
  351.       1 sub
  352.     } loop
  353.    arg exch 0 exch getinterval dup cvn find-latin-font
  354.    exch arg exch anchorsearch pop pop cvr scalefont
  355.  } def
  356.  
  357. % Parse the command line switches.
  358.  
  359. /doswitch    % argn ... arg1 (-?) restofswitch ->
  360.  { exch dup cvn lpdict exch known
  361.     { cvn load exec }
  362.     { exch pop (Unknown switch: ) eprint eprint (\n) eprint }
  363.    ifelse
  364.  } def
  365.  
  366. /more        % argn ... arg1 restofswitch ->
  367.  { dup length 0 ne
  368.     { (- ) dup 1 3 index 0 get put
  369.       exch dup length 1 sub 1 exch getinterval
  370.       doswitch
  371.     }
  372.     { pop
  373.     }
  374.    ifelse
  375.  } def
  376.  
  377. /-- { (--) exch concatstrings
  378.       dup cvn lpdict exch known
  379.        { cvn load exec }
  380.        { (Unknown switch: ) eprint eprint (\n) eprint }
  381.       ifelse
  382.     } def
  383. /--columns { cvi 1 max /Columns exch def } def
  384. /--detect { /DetectFileType true def } def
  385. /--first-page { cvi /PageFirst exch def } def
  386. /--footing-center { /FootingCenter exch def   /Footers true def } def
  387. /--footing-left { /FootingLeft exch def   /Footers true def } def
  388. /--footing-right { /FootingRight exch def   /Footers true def} def
  389. /--heading-center { /HeadingCenter exch def   /Headers true def } def
  390. /--heading-left { /HeadingLeft exch def   /Headers true def } def
  391. /--heading-right { /HeadingRight exch def   /Headers true def } def
  392. /--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
  393. /--margin-left { cvr 72.0 mul /MarginLeft exch def } def
  394. /--margin-right { cvr 72.0 mul /MarginRight exch def } def
  395. /--margin-top { cvr 72.0 mul /MarginTop exch def } def
  396. /--last-page { cvi /PageLast exch def } def
  397. /--spacing { cvr /Spacing exch def } def
  398.  
  399. /-# { pop } def        % ignore
  400. /-+ { -- } def
  401. (-1)cvn { /Columns 1 def   more } def
  402. (-2)cvn { /Columns 2 def   more } def
  403. /-b { /HeadingLeft exch def   /HeadingCenter () def   /HeadingRight PageNumberString def
  404.       /Headers true def
  405.       /break true def
  406.     } def
  407. /-B { /HeadingLeft () def   /HeadingCenter () def   /HeadingRight () def
  408.       /Headers false def
  409.       /FootingLeft () def   /FootingCenter () def   /FootingRight () def
  410.       /Footers false def
  411.       /break true def
  412.       more
  413.     } def
  414. /-C { pop } def        % ignore
  415. /-c { /Truncate true def   more } def
  416. /-d { pop } def        % ignore
  417. /-f { splitfn /BodyFont exch def } def
  418. /-F { splitfn /HeadingFont exch def } def
  419. /-G { more } def    % ignore
  420. /-g { more } def    % ignore
  421. /-h { more } def    % ignore
  422. /-J { pop } def        % ignore
  423. /-K { more } def    % ignore
  424. /-k { more } def    % ignore
  425. /-l { 66 -L -B } def
  426. /-L { cvi /MaxLines exch def } def
  427. /-m { more } def    % ignore
  428. /-n { pop } def        % ignore
  429. /-o { more } def    % ignore
  430. /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
  431. /-P { pop } def        % ignore
  432. /-q { /Noisy false def   more } def
  433. /-r { /Landscape true def   more } def
  434. /-R { /Landscape false def   more } def
  435. /-S { pop } def        % ignore
  436. /-s { pop } def        % ignore
  437. /-T { cvi /Tab exch def } def
  438. /-v { pop } def        % ignore
  439. /-w { more } def    % ignore
  440.  
  441. /lp1        % filename ->
  442.  { break not { dup /HeadingLeft exch def } if
  443.    Noisy
  444.     { (Printing ) eprint dup eprint (\n) eprint 
  445.     } if
  446.    (r) file
  447.         % If requested, check for a PostScript file.
  448.    DetectFileType
  449.     { dup 2 string readstring pop dup (%!) eq
  450.        {    % Yes, it's a PostScript file.
  451.          pop dup 80 string readline pop pop cvx exec
  452.        }
  453.        { lp
  454.        }
  455.       ifelse
  456.     }
  457.     { () lp
  458.     }
  459.    ifelse
  460.  } bind def
  461.  
  462. /lpcstring 100 string def
  463.  
  464. end
  465.  
  466. /lpcommand        % [arg1 ... argn] -> -
  467.  {    % Push the commands on the stack in reverse order
  468.    mark exch
  469.    dup length 1 sub -1 0 { 1 index exch get exch } for pop
  470.    lpdict begin
  471.    /break false def
  472.     { dup mark eq { pop exit } if
  473.       dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
  474.        { dup 0 2 getinterval
  475.          exch dup length 2 sub 2 exch getinterval
  476.      doswitch
  477.        }
  478.        { dup  /matched false def
  479.           { /matched true def    lp1 } lpcstring filenameforall
  480.      matched { pop } { lp1 } ifelse        % let the error happen
  481.        }
  482.       ifelse
  483.     } loop
  484.    OutFile null ne
  485.     { OutFile (%stdout) (w) file ne { OutFile closefile } if
  486.       /OutFile null def
  487.     } if
  488.    end
  489.  } def
  490.  
  491. [ shellarguments
  492.  { ] dup length 0 ne
  493.     { lpcommand
  494.     }
  495.     { (Usage: gslp [-12BclqRr] [-b<header] [-f<font>] [-F<hfont>]\n) eprint
  496.       (        [-L<lines>] [-p<outfile>] [-T<tabwidth>] [--columns <n>]\n) eprint
  497.       (        [--detect] [--first-page <page#>] [--last-page <page#>]\n) eprint
  498.       (        [--(heading|footing)-(left|right|center) <string>]\n) eprint
  499.       (        [--margin-(top|bottom|left|right) <inches>]\n) eprint
  500.       (        [--spacing <n>] file1 ... filen\n) eprint
  501.     }
  502.    ifelse
  503.  }
  504.  { pop }
  505. ifelse
  506.